Option Explicit
'ۭqҲ
Private Sub CommandButton1_Click()
    Dim myHwnd         As Long
    Dim lngNewLong   As Long
    Dim myRc           As Long
    Dim myClassName As String
    myClassName = "ThunderDFrame"                   'wOW
    myHwnd = FindWindow(myClassName, Me.Caption)
    lngNewLong = GetWindowLong(myHwnd, GWL_STYLE)
    myRc = SetWindowLong(myHwnd, _
                         GWL_STYLE, _
                         lngNewLong And (Not WS_SYSMENU))
    myRc = DrawMenuBar(myHwnd)
End Sub

Private Sub CommandButton2_Click()
    Dim myHwnd         As Long
    Dim lngNewLong   As Long
    Dim myRc           As Long
    Dim myClassName As String
    myClassName = "ThunderDFrame"                   'wOW
    myHwnd = FindWindow(myClassName, Me.Caption)
    lngNewLong = GetWindowLong(myHwnd, GWL_STYLE)
    myRc = SetWindowLong(myHwnd, _
                         GWL_STYLE, _
                         lngNewLong Or WS_SYSMENU)  'ܧݩ
    myRc = DrawMenuBar(myHwnd)                      'syø\C
End Sub

Private Sub CommandButton3_Click()
    Unload Me
End Sub


